home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlEditSetRECT.au3 < prev    next >
Text File  |  2006-08-01  |  2KB  |  40 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiEdit.au3>
  3.  
  4. Opt('MustDeclareVars', 1)
  5.  
  6.  
  7. Dim $myedit, $Status, $msg, $s_rect, $label_rect, $rect_array, $btn_set
  8.  
  9. GUICreate("Edit Set Rect", 392, 254)
  10. $myedit = GUICtrlCreateEdit("AutoIt v3 is a freeware BASIC-like scripting language designed for automating the Windows GUI. It uses a combination of simulated keystrokes, mouse movement and window/control manipulation" & @CRLF, 10, 32, 171, 97, BitOR($ES_AUTOVSCROLL, $WS_VSCROLL, $ES_MULTILINE))
  11. GUICtrlSetLimit($myedit, 1500)
  12. $label_rect = GUICtrlCreateLabel($s_rect, 195, 50, 100, 55, $SS_SUNKEN)
  13. $btn_set = GUICtrlCreateButton("Set", 150, 150, 90, 40)
  14. GUISetState()
  15. $rect_array = _GUICtrlEditGetRECT($myedit)
  16. If ($rect_array == $EC_ERR) Then
  17.     MsgBox(0, "Error", "Unable to Get RECT")
  18. ElseIf (IsArray($rect_array)) Then
  19.     $s_rect = "Left:" & $rect_array[1] & @LF & "Top:" & $rect_array[2] & @LF & "Right:" & $rect_array[3] & @LF & "Bottom:" & $rect_array[4]
  20.     GUICtrlSetData($label_rect, $s_rect)
  21. EndIf
  22.  
  23. ; Run the GUI until the dialog is closed
  24. While 1
  25.     $msg = GUIGetMsg()
  26.     Select
  27.         Case $msg = $GUI_EVENT_CLOSE
  28.             ExitLoop
  29.         Case $msg = $btn_set
  30.             _GUICtrlEditSetRect($myedit, 0, 0, 80, $rect_array[4])
  31.             $rect_array = _GUICtrlEditGetRECT($myedit)
  32.             If ($rect_array == $EC_ERR) Then
  33.                 MsgBox(0, "Error", "Unable to Get RECT")
  34.             ElseIf (IsArray($rect_array)) Then
  35.                 $s_rect = "Left:" & $rect_array[1] & @LF & "Top:" & $rect_array[2] & @LF & "Right:" & $rect_array[3] & @LF & "Bottom:" & $rect_array[4]
  36.                 GUICtrlSetData($label_rect, $s_rect)
  37.             EndIf
  38.     EndSelect
  39. WEnd
  40.